home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / Glyph.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  3.6 KB  |  117 lines
  1. pTempVar <- <primitive 110 24 >
  2. <primitive 112 pTempVar 1  " isDisplayed " \
  3.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16rF5] \
  4.     #( 'isDisplayed' #subclassResponsibility:  )) >
  5.  
  6. <primitive 112 pTempVar 2  " glyphType " \
  7.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16rF5] \
  8.     #( 'glyphType' #subclassResponsibility:  )) >
  9.  
  10. <primitive 112 pTempVar 3  " addressOf " \
  11.   #( #[ 16r20 16r30 16r91 16r01 16rF2 16rF5] \
  12.     #( 'addressOf' #subclassResponsibility:  )) >
  13.  
  14. <primitive 112 pTempVar 4  " shallowCopy " \
  15.   #( #[ 16r20 16rFA 16r01 16r04 16r71 16r21 16r50 16rC7 16rF7 16r04 16r20 \
  16.         16rF3 16rF8 16r1A 16rF2 16r20 16rA4 16rA0 16r72 16r51 16r21 \
  17.         16rB2 16rE1 16r03 16r0B 16r22 16r23 16r20 16r23 16rFA 16r02 \
  18.         16r6F 16rFA 16r03 16r70 16rF3 16rB3 16rF2 16r22 16rF3 16rF2 \
  19.         16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 5  " respondsTo: " \
  23.   #( #[ 16r20 16rA4 16r21 16r0B 16r29 16rF3 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 6  " printString " \
  27.   #( #[ 16r20 16r0A 16r10 16rF3 16rF5] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 7  " print " \
  31.   #( #[ 16r20 16rA9 16rFA 16r01 16r79 16rF2 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 8  " notNil " \
  35.   #( #[ 16r5B 16rF3 16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 9  " next " \
  39.   #( #[ 16r5D 16rF3 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 10  " isNil " \
  43.   #( #[ 16r5C 16rF3 16rF5] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 11  " isMemberOf: " \
  47.   #( #[ 16r21 16r20 16rA4 16rB5 16rF3 16rF5] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 12  " isKindOf: " \
  51.   #( #[ 16r20 16rA4 16r72 16r22 16rA2 16rF7 16r10 16r22 16r21 16rB5 16rF7 \
  52.         16r02 16r5B 16rF3 16rF2 16r22 16r0A 16r2D 16rF1 16r72 16rF2 \
  53.         16rF9 16r14 16rF2 16r5C 16rF3 16rF5] \
  54.     #(  )) >
  55.  
  56. <primitive 112 pTempVar 13  " first " \
  57.   #( #[ 16r20 16rF3 16rF5] \
  58.     #(  )) >
  59.  
  60. <primitive 112 pTempVar 14  " error: " \
  61.   #( #[ 16r21 16r20 16rFA 16r02 16r7A 16rF2 16rF5] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 15  " do: " \
  65.   #( #[ 16r20 16rA6 16r72 16r22 16rA2 16rF7 16r0B 16r21 16r22 16rB4 16rF2 \
  66.         16r20 16rA7 16rF1 16r72 16rF2 16rF9 16r0F 16rF3 16rF5] \
  67.     #(  )) >
  68.  
  69. <primitive 112 pTempVar 16  " deepCopy " \
  70.   #( #[ 16r20 16rFA 16r01 16r04 16r71 16r21 16r50 16rC7 16rF7 16r04 16r20 \
  71.         16rF3 16rF8 16r1C 16rF2 16r20 16rA4 16rA0 16r72 16r51 16r21 \
  72.         16rB2 16rE1 16r03 16r0D 16r22 16r23 16r20 16r23 16rFA 16r02 \
  73.         16r6F 16r0A 16r14 16rFA 16r03 16r70 16rF3 16rB3 16rF2 16r22 \
  74.         16rF3 16rF2 16rF5] \
  75.     #(  )) >
  76.  
  77. <primitive 112 pTempVar 17  " copy " \
  78.   #( #[ 16r20 16r0A 16r29 16rF3 16rF5] \
  79.     #(  )) >
  80.  
  81. <primitive 112 pTempVar 18  " class " \
  82.   #( #[ 16r20 16rFA 16r01 16r01 16rF3 16rF5] \
  83.     #(  )) >
  84.  
  85. <primitive 112 pTempVar 19  " asSymbol " \
  86.   #( #[ 16r20 16r0A 16r10 16r0A 16r11 16rF3 16rF5] \
  87.     #(  )) >
  88.  
  89. <primitive 112 pTempVar 20  " asString " \
  90.   #( #[ 16r20 16rA4 16rFA 16r01 16r98 16rF3 16rF5] \
  91.     #(  )) >
  92.  
  93. <primitive 112 pTempVar 21  " ~= " \
  94.   #( #[ 16r20 16r21 16rC9 16rAC 16rF3 16rF5] \
  95.     #(  )) >
  96.  
  97. <primitive 112 pTempVar 22  " = " \
  98.   #( #[ 16r20 16r21 16rB5 16rF3 16rF5] \
  99.     #(  )) >
  100.  
  101. <primitive 112 pTempVar 23  " ~~ " \
  102.   #( #[ 16r20 16r21 16rB5 16rAC 16rF3 16rF5] \
  103.     #(  )) >
  104.  
  105. <primitive 112 pTempVar 24  " == " \
  106.   #( #[ 16r20 16r21 16rFA 16r02 16r07 16rF3 16rF5] \
  107.     #(  )) >
  108.  
  109. <primitive 98 #Glyph \
  110.   <primitive 97 #Glyph #Object #AmigaTalk:Intuition/Glyph.st \
  111.    #(  ) \
  112.    #( #isDisplayed #glyphType #addressOf #shallowCopy #respondsTo: #printString  \
  113.        #print #notNil #next #isNil #isMemberOf: #isKindOf: #first #error: #do: #deepCopy  \
  114.        #copy #class #asSymbol #asString #~= #= #~~ #==  ) \
  115.   pTempVar 4 7 >>
  116.  
  117.